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CAPITOLO 1 



Introduzione 

Nota Gli esempi e gli esercizi a corredo delle parti teoriche sono parzialmente tratti dal libro "Introdu- 

zione alla Programmazione Funzionale" [5]. 

1.1. La programmazione funzionale 

tratto da: "Programmazione Funzionale - Numero 1 " ài V. Ciancia e G. Belmonte 1 

« In un'epoca di comunicazione di massa, di diffusione di massa dell'informatica, di diffusione di 
massa della cultura, è quasi implicito che anche la programmazione sia passata da scienza a cultura 
generale e sia divenuta alla portata di tutti. 

Linguaggi di programmazione di ogni genere sono largamente diffusi ed usati; ciò nonostante, invece 
di avere un forte progresso della qualità dei programmi, abbiamo avuto dagli ultimi dieci anni uno 
spaventoso incremento degli errori di programmazione. La prima causa è senz'altro la maggiore com- 
plessità dei programmi, ma fra le cause maggiori vi è anche il fatto che in programmazione si usano 
strumenti piuttosto antichi, che non fanno pieno uso di tutte le scoperte fatte dalla scienza informatica 
negli ultimi decenni. 

L'unico metodo efficace per affermare che un programma è esente da errori è la dimostrazione di 
correttezza rispetto alle specifiche, ma questa è indecidibile, quindi non può essere automatizzata, ed 
è molto complesso riuscire a dimostrare, anche a mano, la correttezza di un lungo programma. 

Si possono invece limitare, ma non evitare del tutto, gli errori di programmazione fornendo una 
dimostrazione di correttezza parziale, cioè relativa solo a parte di una specifica. Una dimostrazione 
di correttezza parziale molto usata (anche inconsciamente) è il controllo di tipi statico: si specificano 
nel programma i tipi (che sono una versione meno vincolante rispetto alle specifiche) e il compilatore 
riesce a controllare che i tipi effettivi siano conformi a quelli dichiarati. 

Molti dei linguaggi diffusi, come il C e il C++ per citare i più famosi, hanno un sistema di tipi debole, 
nel senso che è possibile violare il controllo di tipi, ad esempio convertendo la rappresentazione di un 
valore da un tipo all'altro usando i puntatori. 

Altri linguaggi, meno diffusi perché più complessi da usare e meno immediati, hanno un controllo di 
tipi forte. Fra questi ce ne sono alcuni, come OCaml e Haskell, che fanno parte della categoria dei 
linguaggi funzionali; questa categoria è interessante perché propone un'astrazione, quello di funzione 
come valore, che consente di esprimere un concetto difficilmente simulabile in altri linguaggi: quello 
di funzioni che manipolano altre funzioni. Questo concetto, che difficilmente si è portati ad adoperare 
se non lo si conosce, è molto usato in matematica ed è un mezzo efficace di formalizzazione della 
soluzione di molti problemi. [...] » 

'http : / / xoomer.virgilio.it/ubrcianc / EPF / numero_l /numero_l pdf 
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1.2. Tratti salienti della programmazione funzionale 

La programmazione funzionale rappresenta un modo completamente diverso di affrontare 
i problemi, rispetto alla tradizionale programmazione imperativa basata sui comandi. 

ML è l'acronimo di "Meta Language", che identifica un linguaggio di programmazione fun- 
zionale general-purpose sviluppato negli anni '70, allo scopo di realizzare un meta-linguaggio 
per programmare un dimostratore di teoremi in grado di seguire diverse strategie di dimo- 
strazione. 

Vedi: http://it.wikipedia.org/wiki/ML e http://it.wikipedia.org/wiki/Ocaml 

Objective Carni, http://caml.inria.fr/, creato nel 1996, è un avanzato linguaggio di programma- 
zione appartenente alla famiglia dei linguaggi ML. Alcune caratteristiche di questi linguaggi 
possono essere così sintetizzate: 

(1) L'attenzione del programmatore tende a focalizzarsi sul "che cosa" piuttosto che sul 
"come": un programma funzionale dovrebbe descrivere il problema da risolvere 
piuttosto che indicare il meccanismo di soluzione. 

(2) La programmazione funzionale richiede uno stile di pensiero decisamente astratto, 
fortemente ispirato ai principi della matematica. 

(3) Un programma funzionale è costituito dalla definizione di un insieme di funzioni, 
che possono richiamarsi l'una con l'altra. Le funzioni di base sono trattate come "og- 
getti di prima classe", a partire dai quali è possibile definire "funzioni di ordine su- 
periore", cioè funzioni che prendono funzioni come argomento o che restituiscono 
funzioni in uscita. In altre parole: 

(a) una funzione può essere una componente di una struttura dati; 

(b) una funzione può essere un argomento di un'altra funzione; 

(c) una funzione può essere un valore restituito da un'altra funzione. 

(4) I costrutti di base sono espressioni, non comandi. 

(5) Le espressioni sono costruite a partire da costanti e variabili (le quali a loro vol- 
ta sono espressioni), mediante l'applicazione e la composizione di operazioni. La 
programmazione funzionale è quindi una "programmazione orientata alle espressioni" , 
nella quale la modalità fondamentale di calcolo è la "valutazione di espressioni", 
che consiste nel calcolare il valore di una data espressione, semplificandola fin dove 
possibile. 

(6) Il codice di un programma funzionale è solitamente più conciso del corrispondente 
codice procedurale ed anche più affidabile. 

(7) Non esistono strutture di controllo predefinite per la realizzazione di cicli f or o 
while: il principale meccanismo di controllo è la ricorsione (vedi 1.5.3 e 1.7). 

(8) La programmazione imperativa si basa sul À-calcolo (lambda-calcolo), sviluppa- 
to per analizzare formalmente le definizioni di funzioni, le loro applicazioni e i 
fenomeni di ricorsione. 

(9) L'ambiente di valutazione delle espressioni, cioè la collezione di legami tra variabili 
e valori, viene gestito come uno stack: ogni nuova dichiarazione aggiunge un lega- 
me in cima alla pila, senza alterare i legami preesistenti. Il modulo Pervasives, che 
sta alla base dell'ambiente di valutazione, contiene le definizioni di tutte le variabili 
e funzioni predefinite in Ocaml. 

(10) Non esiste l'assegnamento di valori alle variabili (vedi 1.4). 
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1.3. Installazione e utilizzo di Ocaml 

Il sito di riferimento è: 

• The Carni Language 
http://caml.inria.fr/ 

nel quale è possibile scaricare distribuzioni di Ocaml per Linux, MacOS e Windows. Da 
notare, comunque, che l'installazione in ambiente Linux è generalmente possibile e sempli- 
ficata grazie ai pacchetti precompilati per la propria distribuzione e disponibili nei relativi 
repository. Su Debian e derivati è sufficiente il seguente comando da root: 

# apt-get instali ocaml-core 

Per aprire l'interprete dei comandi, si digiti ocaml. L'output sarà il seguente: 

utentegubuntu : ~$ ocaml 

Objective Carni version 3.08.3 

# 

Nel prompt di Ocaml, contraddistinto dal simbolo di cancelletto, è possibile inserire espres- 
sioni (su uno o più righi), le quali saranno subito valutate dall'interprete, che ne stamperà 
il tipo (dedotto automaticamente, vedi 1.6.1) e il valore. Le espressioni terminano con due 
"punto e virgola" consecutivi. Ad esempio: 

#3+3;; 
- : int = 6 

Per maggiore comodità, è possibile memorizzare il codice in un file di testo, con l'editor 
preferito, ed eseguirlo con la direttiva: 

# #use " nome_del_file" ; ; 

oppure integrare l'interprete in Emacs, come descritto nella guida: 

• Using Ocaml on Linux 

http://www.cis.ksu.edu/~ab/Courses/505/spr06/docs/ocaml.pdf 

1.4. Dichiarazioni di variabili 

Una variabile viene introdotta nell'ambiente legandola ad un valore (value binding), per 
mezzo della sintassi: 

let Variabile = Espressione 

Ocaml valuta prima la parte destra dell'equazione e poi ne lega il valore alla variabile speci- 
ficata nella parte sinistra. I nomi delle variabili devono essere scritti minuscolo. 

# let n = 2 + 3 ; ; 
vai n : int = 5 
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Se la dichiarazione di una variabile o di una funzione contiene il riferimento ad una variabile 
x, ogni volta che tale variabile o funzione viene valutata è utilizzato il valore che x aveva 
nel momento in cui è stata introdotta la dichiarazione. Ad esempio, nel codice seguente la 
seconda dichiarazione di x crea un nuovo binding che maschera il primo, ma non intacca il 
valore di y. La parola chiave and effettua il binding in parallelo. 

# let x = 17;; 
vai x : int = 17 

# let y = x; ; 
vai y : int = 17 

# let x = true; ; 
vai x : bool = true 

# y;; 

- : int = 17 

# let x = false and y = x; ; 
vai x : bool = false 

vai y : bool = true 

Il valore di una variabile è definito dal let più recente. 



1.5. Dichiarazioni di funzioni 

Un programma in Ocaml è essenzialmente un insieme di definizioni di funzioni, espresse 
nella forma: 

function Argomento -> Espressione 

che possono essere dichiarate con una delle due sintassi: 

let [ree] Nome (Argl, Arg2, Argn) = Espressione;; 

let [ree] Nome = function (Argl, Arg2, Argn) -> Espressione;; 

dove ree è una parola chiave da inserire solo nel caso di funzioni ricorsive, Nome è il nome 
della funzione e Argl del primo argomento 2 (tutti i nomi devono essere scritti minuscoli). I 
tipi delle funzioni hanno la forma tipol -> tipo2, dove tipol è il tipo degli argomenti 
della funzione e tipo 2 è quello dei valori restituiti. 

# let doppio = function x -> 2*x; ; 
vai doppio : int -> int = <fun> 

# let triplo x = 3*x; ; 

vai triplo : int -> int = <fun> 

# doppio 4 ; ; 

- : int = 8 

# triplo 4; ; 

- : int = 12 



Formalmente le funzioni hanno un solo argomento. Più parametri sono passati usando una tupla (vedi 1.6.7) oppure 
mediante currificazione (vedi 1.5.1). 
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1.5.1. La curryficazione di funzioni (currying). La curryficazione (così chiamata in ono- 
re del logico Haskell Curry 3 ) consiste nel trasformare una funzione che prende più parametri 
attraverso una tupla in un'altra che può ricevere un sottoinsieme dei parametri della funzio- 
ne originaria e restituire una nuova funzione, la quale può a sua volta prendere i parametri 
rimanenti e restituire il risultato. 

Ad esempio, prendendo la funzione di due variabili: 

function (y,x) -> y*x 

e fissando y=2, si ottiene la funzione in una sola variabile: 
function (x) -> 2*x. 

Nella teoria dell'Informatica, la curryficazione fornisce un metodo per studiare funzioni con 
più argomenti attraverso modelli teorici molto semplici, come nel caso del lambda-calcolo, 
nel quale le funzioni prendono soltanto un singolo argomento. 

La motivazione pratica della curryficazione va ricercata nella possibilità di ottenere funzioni da fun- 
zioni; per esempio, molti linguaggi hanno una funzione di incremento, facilmente imple- 
mentabile tramite curryficazione della somma: 

# (* funzione di partenza *) 
let somma (x,y) = x + y; ; 

vai somma : int * int -> int = <fun> 

# (* funzione curryficata *) 
let somma x y = x + y; ; 

vai somma : int -> int -> int = <fun> 

# (* fornisco il primo argomento alla funzione curryficata *) 
somma 1 ; ; 

- : int -> int = <fun> 

# (* uso la funzione currifycata per definire una nuova funzione *) 
let incr = somma 1 ; ; 

vai incr : int -> int = <fun> 

# incr (5) ; ; 

- : int = 6 

Il tipo di una funzione curryficata deve esser letto associando a destra: int->int->int 
equivale a int-> (int->int ) , quindi la funzione prende in input un intero e restituisce 
una funzione da interi a interi. 

Ocaml dispone di alcune funzioni curryficate già predefinite nel modulo Pervasives, come le 
funzioni algebriche di base, che possono essere richiamate interponendo i relativi operatori 
algebrici tra parentesi tonde, e quelle di massimo e minimo: 

# (+);; 

- : int -> int -> int = <fun> 

# (+•);; 

- : float -> float -> float = <fun> 

# (+.) 3.4 6.4;; 

- : float =9.8 

# max; ; 

- : 'a -> ' a -> 'a = <fun> 

# min; ; 



'http://www-history.mcsst-andrewsMCMkMstory/Mathematicians/CurryMml 
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- : 'a -> ' a -> 'a = <fun> 

Esempio di passaggio da versione non curryficata a curryficata e viceversa: 

# (* CURRYFICA UNA FUNZIONE *) 

let curry f x y = f(x,y);; 
vai curry : ('a * 'b -> ' c) -> ' a -> 'b -> 'c = <fun> 

# (* DECURRYFICA UNA FUNZIONE *) 
let uncurry f (x, y) = f x y; ; 

vai uncurry : ('a -> 'b -> ' c) -> 'a * 'b -> 'c = <fun> 

1.5.2. Dichiarazioni locali. Ocaml permette di avere dichiarazioni locali, cioè interne ad 
una data espressione, con la sintassi: 

Dichiarazione in Espressione. 

In questo caso, Ocaml estende provvisoriamente l'ambiente aggiungendo i legami dettati 
da Dichiarazione e, in tale ambiente esteso, valuta Espressione, per poi ripristinare l'ambiente 
preesistente. 

# let n = 3 in if n<10 then 1 else 2;; 

- : int = 1 

# n;; 

Unbound value n 

Le dichiarazioni locali sono utili quando un identificatore ha un uso limitato e non ha signi- 
ficato al di fuori dell'espressione più ampia che lo utilizza. La definizione di funzioni uti- 
lizza spesso dichiarazioni locali, allo scopo di richiamare funzioni ausiliarie che non hanno 
significato autonomo. 

1.5.3. Il concetto di ricorsione. Un algoritmo è ricorsivo se è espresso in termini di se 
stesso, generando un ciclo di chiamate che ha termine al verificarsi di una condizione parti- 
colare, detta caso di base, coincidente, in genere, con il presentarsi di particolari valori di in- 
put. Ad esempio, si consideri l'algoritmo di Euclide, il calcolo del fattoriale e dall'algoritmo 
delle Torri di Hanoi: 

Algorithm 1.5.1. calcolo del MCD con l'algoritmo di Euclide 
(vedi http://it.wikipedia.org/wiki/Algoritmo_di_Euclide). 

# let ree med (m, n) = 

if n=0 then m 
else med (n, m mod n) ; ; 
vai med : int * int -> int = <fun> 

Algorithm 1.5.2. Calcolo del fattoriale di un intero positivo 

(vedi http://it.wikipedia.0rg/wiki/RicorsioneMl_punto_di_partenza:_il_fattoriale). 

# let ree fatt (n) = 

if n=0 then 1 
else n * fatt (n-1) ; ; 
vai fatt int -> int = <fun> 

Algorithm 1.5.3. Le torri di Hanoi 

Per una spiegazione del gioco e del suo algoritmo risolutivo, vedi: 
http://www.lia.deis.unibo.it/Courses/FondA-TLC/AslideHTML/10d.pdf 
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1.6. Itipi 

Vi sono espressioni complesse, che possono essere semplificate, ed espressioni semplici, i 
valori. Ogni espressione ha un suo valore e il processo di calcolo di tale valore è la valutazione 
dell'espressione. Un'espressione viene valutata in un ambiente, costituito da una collezione 
di legami variabile-valore. 

• Un tipo è definito da un insieme di valori. 

• Distinguiamo tra tipi base (i cui oggetti sono indivisibili: unit, bool, int, float, 
char) e tipi composti (i cui oggetti sono decomponibili in oggetti più semplici, di tipo 
base o anch'esso composto: string, tuple, list, record). 

• Ocaml è strettamente e fortemente tipato. Questo significa che ogni espressione ha 
sempre e solo un tipo. 

• Il tipo di una espressione è determinato a tempo di compilazione da un insieme di 
regole di inferenza di tipo (vedi 1.6.1), che garantiscono che, se l'espressione ha un 
valore, esso sia del tipo assegnato all'espressione. 

• Il controllo dei tipi consente di determinare se le espressioni sono usate con coerenza 
e di non autorizzare tentativi di calcolare espressioni senza senso, come ad esempio 
la sottrazione di un booleano da un intero o la somma di una stringa con un reale. 
Ad esempio: 

# "ciao" + 3.14; ; 

This expression has type string but is here used with type int 

1.6.1. Type inference (inferenza dei tipi). In generale, l'inferenza dei tipi è l'abilità, a 
tempo di compilazione, di dedurre automaticamente (in modo parziale o completo) il tipo 
del valore restituito da un'espressione. Di solito il compilatore può dedurre il tipo di una 
variabile o di una funzione senza bisogno di esplicite dichiarazioni di tipo e, in molti casi, è 
addirittura possibile ometterle completamente. 

Ocaml deduce il tipo di un'espressione da quello delle sottoespressioni, fino ad arrivare alle 
costanti, il cui tipo è dedotto dall'analizzatore lessicale. Ad esempio: 






unit 


true 


booleano 


42 


intero 


3.14159 


reale 


'a' 


carattere 


"ciao" 


stringa 



Questo non vuol dire che le dichiarazioni di tipo non sono possibili, semplicemente non 
sono necessarie. 

1.6.2. Il polimorfismo. I linguaggi della classe ML ammettono espressioni di tipo poli- 
morfo, cioè oggetti con un tipo generico che può essere istanziato in diversi modi: istanziare 
un tipo polimorfo, quindi valido per qualsiasi tipo di dati, significa utilizzarlo con il tipo 
effettivamente richiesto dall'utente o dal contesto del programma. Ad esempio, se una fun- 
zione ha l'argomento polimorfo, allora posso passarle un intero, un reale, una tupla, una 
stringa o qualsiasi altro tipo. 
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L'insieme di tutti i tipi possibili, nella forma ti x t 2 — > ti, si rappresenta usando le lettere greche, 
in questo caso a x [5 — ► q. In Ocaml le lettere greche sono indicate premettendo l'apostrofo 
ad un carattere. 

# let pippo (a,b) = a; ; 

vai pippo : 'a * 'b -> 'a = <fun> 

1.6.3. Il tipo unit. Ha un solo valore: ( ) . 

Si può pensare che ( ) sia la tupla con zero elementi, utilizzata come argomento per "fun- 
zioni" senza argomenti o come valore di "funzioni" che di fatto corrispondono a procedu- 
re: il loro ruolo consiste negli effetti collaterali (come la stampa di una stringa) e non ha 
importanza il valore riportato. 

# print_string; ; 

- : string -> unit = <fun> 

1.6.4. Booleani. Il tipo bool è costituito unicamente dai due valori false e true. Le 
espressioni costruite mediante operatori di confronto sono di tipo bool. 

Operazioni predefinite sui booleani: not, && (oppure &), I I (oppure or). 

Nell'espressione condizionale if E then E\ else E 2 , l'espressione E deve avere un valore 
booleano; E\ ed E 2 devono avere lo stesso tipo. 

# let a = 3; ; 
vai a : int = 3 

# let b = 7;; 
vai b : int = 7 

# if a>b then "maggiore" else "minore o uguale";; 

- : string = "minore o uguale" 

# if a>b then 1 else false; ; 

This expression has type bool but is here used with type int 

1.6.5. Interi e reali. Gli interi (int) si scrivono nel modo abituale, invece i reali (f loat) 
sono sempre denotati dal punto decimale (indipendentemente dalla presenza o non di cifre 
decimali) oppure sono espressi in notazione esponenziale. 

Operazioni predefinite sugli interi: + - * / mod succ ( ) pred ( ) 

# (* OPERAZIONI TRA INTERI *) 
3 + 4;; (* somma *) ; ; 

- : int = 7 

#3-4;; (* sottrazione *) ; ; 

- : int = -1 

#3*4;; (* moltiplicazione *) ; ; 

- : int = 12 

#3/4;; (* divisione *) ; ; 

- : int = 

# 3 mod 4;; (* modulo, cioè resto della divisione *) ; ; 

- : int = 3 

# succ (3) ; ; (* intero successivo *) 

- : int = 4 

# pred (3) ; ; (* intero precedente *) 

- : int = 2 
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Operazioni predefinite sui reali: + . -. *. /. ** sqrt() 

# (* OPERAZIONI TRA REALI *) 



3 


+■ 4.;, 




( * somma * ) 


- 


: float 


= 


7. 


# 


3. -. 4 




; (* sottrazione *) 




: float 




-1. 


# 


3. *. 4 




; (* moltiplicazione *) 




: float 




12. 


# 


3. /. 4 




; (* divisione *) 




: float 




0.75 


# 


3. ** 4 




; (* elevamento a potenza *) 




: float 




81. 


# 


sqrt (4 


) 


; ; (* radice quadrata *) 




: float 




2. 


# 


sqrt (3 


) 


; ; (* radice quadrata *) 




: float 




1.73205080756887719 



Da intero a reale e viceversa: 

# int_of_float 3.9;; 

- : int = 3 

# float_of_int 3; ; 

- : float = 3. 



1.6.6. Stringhe e caratteri. 

• Le stringhe sono sequenze di caratteri. 

• Il tipo char è distinto dal tipo string per l'uso, rispettivamente, degli apici singoli 
o doppi. 

• Un carattere può essere indicato anche con una sequenza di escape o con il suo 
codice ASCII. 

• Il carattere in posizione n in una stringa s è identificato da s . [ n ] , tenendo presente 
che il primo carattere è in posizione zero. 

• L'operatore A permette di concatenare stringhe. 

# 'n';; 

- : char = 'n' 

# "n";; 

- : string = "n" 

# '\110';; (* il backslash è seguito dal codice ASCII del carattere *) 

- : char = 'n' 

# ' \n' ; ; (* sequenza di escape per indicare un a capo *) 

- : char = ' \n' 

# "naturale" ; ; 

- : string = "naturale" 

# "\110" A "\097" A "turale"; ; 

- : string = "naturale" 

# "naturale" . [2] ; ; 

- : char = 't' 



Funzioni predefinite su stringhe e caratteri: 
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# "programmazione" A "funzionale";; (* concatenamento *) 

- : string = "programmazionefunzionale" 

# string_of_bool (true) ; ; (* conversione da bool a string *) 

- : string = "true" 

# string_of_int (1) ; ; (* conversione da int a string *) 

- : string = "1" 

# string_of_f loat (1.);; (* conversione da float a string *) 

- : string = "1." 

# int_of_string ("4");; (* conversione da string a int *) 

- : int = 4 

# f loat_of_string ("4.3");; (* conversione da string a float *) 

- : float =4.3 

# String. length ("splendore");; (* numero di caratteri della stringa *) 

- : int = 9 

# Char.code ('a');; (* codice ASCII dell'argomento *) 

- : int = 97 

# Char.chr (98);; (* carattere corrispondente al codice fornito *) 

- : char = 'b' 

Su numeri, stringhe e caratteri sono definiti i seguenti operatori di confronto: 

= <<=>>=<> 

# "ciao". [2] = 'a' ; ; 

- : bool = true 

# 3 <> 4;; 

- : bool = true 

1.6.7. Tuple. Una tupla è una sequenza di lunghezza fissata di oggetti di tipo misto. Se 
t\ e Ì2 sono tipi, ti x ti è il tipo delle coppie ordinate (tuple di due elementi) il cui primo 
elemento è di tipo t\ ed il secondo il tipo ti- Una coppia ordinata si scrive [E\, E2), dove E\ 
ed E2 sono espressioni. In Ocaml, il simbolo x è rappresentato con un asterisco. 

# ("Lucia", 19);; 

- : string * int = ("Lucia", 19) 

# ( (if 3>4 then true else false), sqrt(4.));; 

- : bool * float = (false, 2.) 

L'uguaglianza fra tuple viene valutata componente per componente. Non ha senso confron- 
tare tuple di tipo diverso. 

1.6.8. Le liste. Le liste, strutture dati fondamentali dei linguaggi funzionali, sono se- 
quenze di oggetti dello stesso tipo, separati da ; e racchiusi tra parentesi quadre. 

# ["casa"; "famiglia"; "amore"] ; ; (* LISTA DI STRINGHE *) 

- : string list = ["casa"; "famiglia"; "amore"] 

# [9; 16; 25];; (* LISTA DI INTERI *) 

- : int list = [9; 16; 25] 

Il simbolo [ ] indica una lista vuota, mentre l'operatore cons, rappresentato con : : , permette 
di aggiungere un elemento in testa ad una lista. 

# [];; (* LISTA VUOTA *) 

- : 'a list = [] 

# 3: : [] ; ; (* AGGIUNGE UN INT ALLA LISTA VUOTA *) 

- : int list = [3] 

# "rosso" :: ["verde"; "blu"] ; ; (* AGGIUNGE UNA STRINGA IN TESTA ALLA LISTA *) 
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- : string list = ["rosso"; "verde"; "blu"] 

L'operatore cons è associativo a destra, quindi la scrittura 3::4::5::[], interpretabile 
come 3::(4::(5::[])), creerà una lista, inizialmente vuota, a cui verranno aggiunti in 
testa gli interi 5, 4 e 3 (nell'ordine dato), ottenendo così la lista [ 3 ; 4 ; 5 ] : 

# 3: :4: :5: : [];; 

- : int list = [3; 4; 5] 

# 3: : (4: : (5: :[]));; 

- : int list = [3; 4; 5] 

Due liste sono uguali se hanno la stessa lunghezza e se gli elementi corrispondenti sono 
uguali: 

# [1;2;3] = 1: :2: :3: : [];; 

- : bool = true 

# [[1];[2;3]] = [4/5+1] : : [ [2; 6-3] ] ; ; (* LISTE DI LISTE DI INT *) 

- : bool = true 

1.6.9. I record. Un record è costituito da un numero finito di campi, di tipo non neces- 
sariamente omogeneo, ciascuno dei quali è identificato da un'etichetta e contiene un valore 
di un tipo determinato. A differenza delle tuple, le componenti di un record (i campi) sono 
distinti mediante i nomi (le etichette), anziché per la posizione. 

In Ocaml, prima di utilizzare espressioni di tipo record, è necessario definire il particolare 
tipo di record che si vuole utilizzare, allo scopo di introdurre le etichette dei campi. 

# (* DEFINIZIONE TIPO DI RECORD *) 

type studente = {nome: string; matricola: int * int};; 
type studente = { nome : string; matricola : int * int; } 

# (* DICHIARAZIONE DI UN RECORD *) 

let si = {nome = "pippo"; matricola = 123456, 12};; 
vai si : studente = {nome = "pippo"; matricola = (123456, 12)} 

# (* SELEZIONE DEI SINGOLI CAMPI DI UN RECORD *) 
si .nome; ; 

- : string = "pippo" 

# si .matricola; ; 

- : int * int = (123456, 12) 

1.7. Tail Recursion (ricorsione in coda) 

In linea di principio, una chiamata ricorsiva non opportunamente ottimizzata ha bisogno di 
allocare spazio nello stack (a tempo di esecuzione) per ogni chiamata che non è ancora ter- 
minata: questo spreco di memoria la rende inefficiente per rappresentare i cicli. La ricorsione 
in coda è invece equivalente ai costrutti iterativi e altrettanto efficiente. 

Si ha tail recursion quando la chiamata ricorsiva è l'ultima istruzione eseguita prima di ter- 
minare la funzione. Gli stati intermedi necessari prima di arrivare al "caso base" {vedi 1.5.3) 
non saranno memorizzati nello stack, bensì passati all'interno della chiamata ricorsiva. A 
tale scopo, di solito viene utilizzata un'opportuna variabile, detta accumulatore (parametro 
che accumula il risultato parziale). Anche se formalmente ricorsiva, la tail recursion dà luogo ad 
un processo computazionale di tipo iterativo. 

Algorithm 1.7.1. Fattoriale con ricorsione generica 
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# let ree fatt n = 

if n=0 then 1 
else n*fatt (n-1) ; ; 
vai fatt int -> int = <fun> 

# fatt (4);; 

- : int = 24 

Il flusso di esecuzione dell'algoritmo sarà: 

fatt (4) — > 4*fatt(3) — > 4*3*fatt(2) — > 4*3*2*f att (1) — > 
4*3*2*l*fatt(0) — > 4*3*2*1*1 = 24 

Algorithm 1.7.2. Fattoriale tail-recursive (funzione ausiliaria più funzione principale per inizia- 
lizzare l'ausiliaria) 

# let ree aux_fatt (n, acc) = 

if n=0 then acc 
else aux_fatt (n-1, acc*n) ; ; 
vai aux_fatt : int * int -> int = <fun> 

# let fatt' (n) = aux_fatt (n,l);; 
vai fatt' : int -> int = <fun> 

# fatt' (4) ; ; 

- : int = 24 

Algorithm 1.7.3. Fattoriale tail-recursive, equivalente al precedente (funzione ausiliaria dichiara- 
ta localmente all'interno della principale) 

# let fatt" n = 

let ree aux_fatt (n, acc) = 
if n=0 then acc 
else aux_fatt (n-1, acc*n) 
in aux_fatt (n, 1) ; ; 
vai fatt" : int -> int = <fun> 

# fatt" (4);; 

- : int = 24 

Il flusso di esecuzione di entrambi gli algoritmi tail-recursive sarà: 



fatt' (4) — > aux_fatt (4, 1) — > aux_f att ( 3 , 4 ) — > aux_fatt (2, 12) — > 
aux_fatt(l, 24) — > aux_fatt(0, 24) — > 24 

Algorithm 1.7.4. Potenza con ricorsione generica 

# let ree pot (base, esp) = 

if esp=0 then 1 
else base*pot (base, esp-1) ; ; 
vai pot : int * int -> int = <fun> 

# pot (2,3);; 
- : int = 8 

Algorithm 1.7.5. Potenza tail-recursive 

# let pot' (base, esp) = 

let ree aux__pot (base, esp, acc) = 
if esp=0 then acc 

else aux_pot (base, esp-1, acc*base) 
in aux__pot (base, esp, 1) ; ; 
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vai pot' int * int -> int = <fun> 

# pot' (2,3);; 

- : int = 8 

1.8. Pattern Matching 

Molti linguaggi di programmazione prevedono un costrutto che permette di indirizzare il 
flusso di esecuzione del programma in base al valore di un'espressione. O'Caml fornisce un 
costrutto, noto come Pattern Matching, che permette il confronto tra un pattern (schema), 
definito all'interno della funzione, con l'argomento con cui si richiama la funzione. 

Il pattern matching confronta il valore passato come argomento con il primo possibile pat- 
tern; se fallisce, allora passa al pattern successivo. E' quindi importante l'ordine con cui 
viene scritto il pattern. 

La variabile dummy (cioè "fittizia", "di comodo") underscore "_" indica qualunque possibi- 
le valore attribuibile alla variabile. 

E' possibile scegliere una delle seguenti sintassi: 

let [ree] nome_funzlone = function 
pattern_l -> espress±one_l 
I ... 

| pattern_n -> espresslone_n 

oppure: 

let [ree] nome_funzlone argomento = match argomento with 
pattern_l -> espress±one_l 
I ... 

| pattern_n -> espresslone_n 

Se l'argomento è una tupla, è possibile indicare in match argomento with un sottoinsieme dei 
suoi parametri. 

Algorithm 1.8.1. Fattoriale con pattern matching 

# let ree fatt n = match n with 

-> 1 

| n -> n * fatt (n-1) ; ; 
vai fatt int -> int = <fun> 

# fatt (4);; 

- : int = 24 

Algorithm 1.8.2. Fattoriale con pattern matching e variabile dummy underscore 

# let ree fatt' n = match n with 

-> 1 

| _ -> n * fatt' (n-1) ; ; 
vai fatt' : int -> int = <fun> 

# fatt' (4);; 

- : int = 24 

Algorithm 1.8.3. Fattoriale con pattern matching e omissione degli argomenti, per mezzo della 
parola chiave "function" 
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# let ree fatt = function 

-> 1 

| n -> n * fatt (n-1) ; ; 
vai fatt int -> int = <fun> 

# fatt (4);; 

- : int = 24 

Algorithm 1.8.4. Potenza con pattern matching e parola chiave function 

# let ree pot = function 

<_,0) -> 1 

| (b,e) -> b*pot(b,e-l) ; ; 
vai pot : int * int -> int = <fun> 

# pot (2,3);; 

- : int = 8 

Algorithm 1.8.5. Serie di Fibonacci (http://it.wikipedia.org/wiki/Numeri_di_Fibonacci) con 
tern matching e parola chiave function 

# let ree fib = function 

-> 

| 1 -> 1 

| n -> fib (n-1) + fib (n-2) ; ; 
vai fib : int -> int = <fun> 

# fib (2);; 

- : int = 1 

# fib (3);; 

- : int = 2 

# fib (4);; 

- : int = 3 

# fib (5);; 

- : int = 5 

# fib (6);; 

- : int = 8 

Algorithm 1.8.6. Implementazione porta AND 

# let and__port = function 

(true,e) -> e 

1 (_,_) -> false;; 

vai and__port : bool * bool -> bool = <fun> 

# and__port (true, true) ; ; 

- : bool = true 

# and__port (false, true) ; ; 

- : bool = false 

# and__port (true, false) ; ; 

- : bool = false 

# and__port (false, false) ; ; 

- : bool = false 

Algorithm 1.8.7. Implementazione porta OR 

# let or_port = function 

(false, false) -> false 
I (_,_) -> true; ; 
vai or_port : bool * bool -> bool = <fun> 

# or_port (true, false) ; ; 

- : bool = true 
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1.9. Le eccezioni 

Se una funzione non è definita per tutti i suoi argomenti, come nel caso del fattoriale, è 
opportuno fare in modo che, se richiamata con valori al di fuori del suo dominio, segnali un 
errore, piuttosto che causare un comportamento non prevedibile o addirittura generare un 
loop infinito. A questo scopo, Ocaml dispone di un tipo particolare di dati, le eccezioni, che 
possono essere usate come argomento o valore di qualsiasi funzione. Nel modulo Pervasives 
sono definite alcune eccezioni di base, come "Match failure" oppure "Division by zero", che 
possono essere estese dal programmatore, mediante dichiarazioni nella forma: 

exception NomeEccezione 

Per far sì che una funzione riporti un'eccezione, occorre "sollevare" (to mise) l'eccezione, 
mediante la parola chiave rai se . Nel codice seguente, la funzione fattoriale, definita in due 
modi diversi per mostrare il diverso comportamento del programma in seguito al medesimo 
input, è richiamata con un argomento negativo: 

# (* Eccezione non dichiarata -> stack overflow *) 
let ree fatt = function 

-> 1 

| n -> n * fatt (n-1) ; ; 
vai fatt int -> int = <fun> 

# fatt (-1);; 

Stack overflow during evaluation (looping recursion?) . 

# (* Eccezione dichiarata -> la funzione termina *) 

# exception Neg_argument ; ; 
exception Neg_argument 

# let fatt n = 

let ree p_fatt = function 
-> 1 

| n -> n * p_fatt (n-1) 
in if n>=0 

then p_fatt n 
else raise Neg_argument ; ; 
vai fatt int -> int = <fun> 

# fatt(-l);; 

Exception : Neg_argument . 

1.9.1. Propagazione automatica e "cattura" delle eccezioni. La valutazione di un'e- 
spressione viene immediatamente interrotta se al suo interno viene sollevata un'eccezione, 
come nel caso seguente: 

# 4 * fatt (-5) + 1;; 
Exception : Neg_argument . 

Tale comportamento è noto come propagazione automatica delle eccezioni e può essere evita- 
to tramite un exception handler (cattura di un'eccezione) specificando che, se una determi- 
nata sottoespressione ha un valore "normale" allora si riporta tale valore, altrimenti, se la 
valutazione solleva un'eccezione, allora si deve riportare un altro valore. La sintassi è: 

try Espressione_l with Exception -> Espressione_2 
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Le due espressioni devono essere dello stesso tipo: se la prima solleva l'eccezione specificata 
con il with, allora viene riportato il valore della seconda espressione, altrimenti quello del- 
la prima, a condizione che non venga sollevata un'eccezione diversa da quella specificata. 
Infatti si ha: 

# let twofatt (n, m) = 

try f att (n) * fatt (m) with Neg_argument -> 0;; 
vai twofatt int * int -> int = <fun> 

# twofatt (2, -3);; 

- : int = 

# twofatt (2, 3) ; ; 

- : int = 12 

1.10. Riepilogo: il nucleo di un linguaggio funzionale 

Tecniche per risolvere problemi: riduzione a sottoproblemi più semplici 

http://logicaMniroma3.it/csginfo/fondamenti/cialdea/slides/04.pdf 

Esercizi di riepilogo 

http://logica.uniroma3.it/csginfo/fondamenti/cialdea/slides/esercizi-3-4.pdf 

1.11. Esercizi svolti 

EXERCISE 1.12. Definire una funzione second che, applicata ad una coppia, ne restituisca il 
secondo elemento. 

# let second (n, m) = m; ; 

vai second : 'a * 'b -> 'b = <fun> 

# second (5, "a") ; ; 

- : string = "a" 

EXERCISE 1.13. Definire ricorsivamente una funzione che, applicata ad un intero positivo n, 
determini se n è potenza di 2 (la funzione riporterà un booleano). 

# let ree potenza2 = function 

1 -> true 

| n -> ( (n mod 2) = 0) && potenza2 (n/2);; 4 
vai potenza2 : int -> bool = <fun> 

# potenza2 (8) ; ; 

- : bool = true 

EXERCISE 1.14. Definire una funzione sum che, applicata a due interi positivi, ne determini 
la somma con ricorsione generica e con ricorsione in coda. 

# let ree sum = function 

(n, 0) -> n 

| (n, m) -> succ (sum (n, pred (m) ) ) ; ; 
vai sum : int * int -> int = <fun> 

# sum (12, 5) ; ; 

- : int = 17 



In questo caso, Ocaml ha un approccio lazy (pigro) alla valutazione dell'espressione, nel senso che ne 
valuta il secondo elemento, cioè la chiamata ricorsiva, solo se ce n'è realmente bisogno. 
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# let ree sum (a, b) = match a with 

-> b 

| _ -> sum (a-1, b+1) ; ; 
vai sum : int * int -> int = <fun> 

# sum (3, 45) ; ; 

- : int = 48 

EXERCISE 1.15. Definire una funzione product che, applicata a due interi positivi, ne de- 
termini il prodotto con ricorsione in coda. 

# let product (a,b) = 

match (a,b) with 
(0,_) | (_,0) -> 
I d,_) -> b 
I (_,D -> a 
I _ -> 

let ree aux__product (m, n, acc) = match n with 
| -> acc 

| _ -> aux_product (m, n-1, acc+m) 
in aux_product (a, b, 0) ; ; 
vai product int * int -> int = <fun> 

# product (4, 6) ; ; 

- : int = 24 

EXERCISE 1.16. Scrivere una funzione che, applicata ad un intero d e una stringa m, ritorti 
true se e solo se (d, m) rappresenta una data corretta (ad esempio (28, "febbraio") ) - 
assumendo che l'anno non sia bisestile. 

« 30 dì conta Novembre, con Aprii, Giugno e Settembre, di 28 ce n'è uno, tutti gli altri ne han 31... » 

# let date (g, m) = match m with 

"gennaio" | "marzo" | "maggio" | "luglio" | "agosto" 
| "ottobre" | "dicembre" -> g>=l && g<=31 
| "febbraio" -> g>=l && g<=28 
| "aprile" | "giugno" 

| "settembre" | " novembre "-> g>=l && g<=30 

1 _ -> false; ; 

vai date : int * string -> bool = <fun> 

# date (28, "febbraio");; 

- : bool = true 

# date (2, "gennaio");; 

- : bool = true 

# date (31, "novembre");; 

- : bool = false 

EXERCISE 1.17. Si consideri il problema di determinare il numero di divisori di un intero 
positivo n: si possono scandire i numeri da 1 a n e, per ciascuno di essi, si determina se 
divide n; in caso positivo, si incrementa un contatore (inizializzato a 0). Si implementi questo 
algoritmo, utilizzando una funzione ausiliaria che svolga il ruolo dell'iterazione. 

Soluzione 1: 

# let ree f (n, div, acc) = 

if (div > n) then acc 

else if ( (n mod div) = 0) then f (n, div+1, acc+1) 
else f (n, div+1, acc);; 
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vai f : int * int * int -> int = <fun> 

# let divisori n = f (n, 1, 0) ; ; 
vai divisori : int -> int = <fun> 

# divisori (10) ; ; 

- : int = 4 

Soluzione 2: 

# let ree aux = function 

(_, l,count) -> count +1 
| (n, k, count) -> 
if n mod k = 
then aux (n, k-1, count+1) 
else aux (n, k-1, count);; 
vai aux : int * int * int -> int = <fun> 

# let divisori (n) = aux (n, n, 0) ; ; 
vai divisori : int -> int = <fun> 

# divisori (10) ; ; 

- : int = 4 

Exercise 1.18. Si consideri il problema dell'esercizio precedente. In questo caso si vuol 
stampare la lista dei divisori. 

# let ree f (n, div, acc) = 

if (div > n) then acc 
else if ( (n mod div) = 0) 

then f (n, div+1, acc A string_of_int (div) A " ") 
else f (n, div+1, acc) ; ; 
vai f : int * int * string -> string = <fun> 

# let divisori n = f (n, 1, "");; 
vai divisori : int -> string = <fun> 

# divisori (20) ; ; 

- : string = "1 2 4 5 10 20 " 

m 

EXERCISE 1.19. Implementare la sommatoria ^ = f(k) 

k=n 

# let ree sum (f, n, m) = 

if n > m then 
else f(n) + sum (f, n+1, m) ; ; 
vai sum : (int -> int) * int * int -> int = <fun> 



# sum ( (function (x) ->x*x) , 1, 5) ; ; 
- : int = 55 

EXAMPLE. Scrivere una funzione che calcoli il valore minimo di una funzione f : int -> 
int in un intervallo finito. 

# exception Nolntervallo; ; 
exception Nolntervallo 



# let ree minimo (f, sx, dx) = 

if (sx > dx) then raise Nolntervallo 

else if (sx = dx) then f (dx) 

else min (f (sx) ) (minimo (f, sx+1, dx) ) ; ; 

vai minimo : (int -> 'a) * int * int -> ' a = <fun> 
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# minimo ( (function a -> a*100) , 1, 10);; 

- : int = 100 

# minimo ((function a -> 100/a) , 1, 10);; 

- : int = 10 

# minimo ((function a -> 5+a) , 1, 1);; 

- : int = 6 

# minimo ((function a -> 5+a), 2, 1);; 
Exception : Nolntervallo . 
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Le liste 



Se a , b , c , ... sono elementi di uno stesso tipo a, allora una lista di elementi di tipo 
a è una sequenza finita di tali elementi. Le liste vengono denotate in OCaml racchiuden- 
do gli elementi fra parentesi quadre e separandoli mediante punti e virgola. Ad esempio, 
[ 3 ; 6 ; 3 ; 1 ] è una lista di interi. 

Ciascuna lista si può vedere costruita a partire dalla lista vuota (indicata con [ ] ), median- 
te l'operazione di "inserimento in testa", indicata con : : e chiamata operazione "cons". 
Ad esempio, la lista [ 3 ; 6 ; 3 ; 1 ] si ottiene inserendo 3 in testa alla lista [ 6 ; 3 ; 1 ] , ov- 
vero 3 : : [ 6 ; 3 ; 1 ] = [ 3 ; 6 ; 3 ; 1 ] . Di fatto, [3;6;3;10] è un modo compatto di scrivere 
l'espressione 3::(6::(3::(10::[]))). 

In generale, l'insieme delle liste di elementi di un tipo a costituisce il tipo a list. Ad 
esempio, [ 3 ; 6 ; 3 ; 1 ] è un'espressione di tipo int 1 i st, e [ [ 4 ; 5 ] ; [ 6 ; 7 ; 8 ] ; [ 9 ; 1 ] ] 
è una int list list, cioè una lista di liste di interi. 

Si ricordi che la virgola viene utilizzata per le tuple, il punto e virgola per le liste, infatti si 
ha: 

# (* lista di coppie i cui elementi sono liste di interi *) 
[[1;2], [3;4;5]];; 

- : (int list * int list) list = [([1; 2], [3; 4; 5])] 

# (* lista di liste di interi *) 
[[1;2]; [3;4;5]];; 

- : int list list = [[1; 2]; [3; 4; 5]] 

L'insieme delle liste di tipo a list può essere definito come segue: 

(1) La lista vuota [ ] è una a list. 

(2) Se x è di tipo aexsè una a list, allora (x : : xs ) è una a list. 

(3) nient'altro è una a list. 

La lista vuota e l'operatore cons sono quindi i costruttori del tipo lista. Qualsiasi lista ha una 
delle due forme seguenti: [] oppure a list. 

L'append, indicato con il simbolo @, è l'operatore di concatenazione: 

# [1;2] @ [3;4;5];; 

- : int list = [1; 2; 3; 4; 5] 
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TABELLA 1. Pattern Matching con le liste 



pattern 


espressione da confrontare 


espressione equivalente 


esito confronto e legami 


[] 


[] 




successo 


[] 


[1] 




fallimento 


[] 


[i;2] 




fallimento 


[x] 


[] 




fallimento 


[x] 


[i] 




x=l 


[X] 


[i;2] 




fallimento 


x: : 


[] 


[] 




fallimento 


x: : 


[] 


[i] 


1: : [] 


x=l 


x: : 


[] 


[i;2] 


1: : [2] 


fallimento 


x : 


y 


: : [] 


[] 




fallimento 


x : 


y 


: : [] 


[i] 


1: : [] 


fallimento 


x : 


y 


: : [] 


[i;2] 


1: :2: : [] 


x=l, y=2 


x : 


= y 


[] 




fallimento 


x : 


:y 


[i] 


1: : [] 


x=l, y=[] 


x : 


:y 


[i;2] 


1: : [2] 


x=l, y=[2] 


x : 


:y 


[1;2;3] 


1: : [2;3] 


x=l, y=[2;3] 


x: :xs 


[] 




fallimento 


x: :xs 


[i] 


1: : [] 


x=l, xs=[] 


x: :xs 


[i;2] 


1: : [2] 


x=l, xs=[2] 


x: :xs 


[1;2;3] 


1: : [2;3] 


x=l, xs=[2;3] 


x : 


y 


: :xs 


[] 




fallimento 


x : 


y 


: :xs 


[1] 


1: : [] 


fallimento 


x : 


y 


: :xs 


[i;2] 


1: :2: : [] 


x=l, y=2, xs=[] 


x : 


y 


: :xs 


[1;2;3] 


1: :2: : [3] 


x=l, y=2, xs=[3] 


x : 


y 


: :xs 


[1;2;3;4;5] 


1: :2: : [3;4;5] 


x=l, y=2. xs=[3;4;5] 



2.1. Pattern Matching con le liste 

Nel definire funzioni sulle liste è possibile utilizzare il pattern matching. La tabella 1 , tratta 
da [5], riporta, in ogni riga, un pattern di esempio, un'espressione con il cui il pattern viene 
confrontato, il modo di leggere l'espressione applicando l'operatore : : nella stessa maniera 
in cui è specificato nel pattern e, infine, l'esito del confronto, con gli eventuali legami stabiliti 
dall'operazione di pattern matching. 

Affinché il pattern matching abbia successo, il pattern deve essere scritto nella stessa forma 
dell'espressione da confrontare o in una equivalente, ottenibile con le regole di composizione 
delle liste. In particolare, si tenga presente che il pattern matching ha successo se: 

• ad ogni elemento della lista specificata nel pattern corrisponde uno ed un solo 
elemento della lista specificata nell'espressione da confrontare; 

• nel caso siano presenti nel pattern uno o più cons, allora ad ogni lista alla destra di 
un cons corrisponde una lista nell'espressione da confrontare (pattern ed espressio- 
ne saranno confrontati usando lo stesso numero di cons), mentre ad ogni elemento 
alla sinistra di un cons corrisponderà un elemento nell'espressione da confrontare; 



2.2. FUNZIONI SULLE LISTE: ESEMPI ED ESERCIZI SVOLTI 25 

• "liste" fanno il match solo con "liste" ed "elementi di liste" solo con "elementi di 
liste". 

Nei pattern è preferibile usare simboli come xsoys per indicare le liste (la "s" inglese, usata 
per indicare il plurale, evidenzia in questo caso una pluralità di elementi). 

In un pattern di lista può anche essere presente la variabile dummy (underscore). 



2.2. Funzioni sulle liste: esempi ed esercizi svolti 

Come indicato nel manuale di Ocaml 1 , il modulo List contiene una serie di funzioni pre- 
definite sulle liste, come ad esempio i due selettori hd e ti che, applicati ad una lista, ne 
restituiscono rispettivamente la testa (cioè il primo elemento) o la coda (cioè la lista che si ottiene 
eliminando la testa). 

# (* Selettore: restituisce la testa della lista *) 
List .hd; ; 

- : 'a list -> ' a = <fun> 

# (* Selettore: restituisce la coda della lista *) 
List .ti; ; 

- : 'a list -> 'a list = <fun> 

# List.hd [1;2;3] ; ; 

- : int = 1 

# List. ti [1;2;3] ; ; 

- : int list = [2; 3] 

In questa sezione verranno presentate alcune possibili implementazioni di funzioni su liste. 
Head. Restituisce il primo elemento della lista. 

# exception EmptyList; ; 
exception EmptyList 

# let hd = function 

x : : _ -> x 

| _ -> reise Emptylist;; 
vai hd : 'a list -> ' a = <fun> 

Tail. Restituisce la coda della lista, cioè la lista che si ottiene eliminando il primo ele- 
mento. 

# let ti = function 

[] -> raise EmptyList 
| _: :xs -> xs; ; 
vai ti : 'a list -> 'a list = <fun> 



http://caml.inria.fr/pub/docs/manual-ocaml/libref/List.html 
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Nuli. Determina se una lista è vuota. 

# let nuli lst = lst = [];; 

vai nuli : ' a list -> bool = <fun> 

Last. Restituisce l'ultimo elemento della lista 

# let ree last = function 

[] -> raise Emptylist 
I [x] -> x 

| _::xs -> last xs; ; 
vai last : ' a list -> ' a = <fun> 

# last [1;2;3];; 
: int = 3 

Upto. Dati due interi, restituisce una lista composta da tutti gli interi compresi tra il 
primo e il secondo, estremi compresi. 

# let upto (n, m) = 

let ree aux_upto (n, m, acc) = 

if n>m then acc 

else aux_upto (n, m-1, m::acc) 
in aux_upto (n, m, [] ) ; ; 
vai upto : int * int -> int list = <fun> 

# upto (0,5);; 

- : int list = [0; 1; 2; 3; 4; 5] 

Lenght. Restituisce la lunghezza della lista. 

# let ree lenght = function 

_: :xs -> 1 + lenght xs 
I _ -> 0;; 
vai lenght ' a list -> int = <f un> 

# lenght [12; 1; 9];; 

- : int = 3 

Mem. Controlla se l'elemento dato fa parte della lista. 

# let ree mem (n, lst) = match lst with 

[] -> false 

| x::xs -> (n = x) or mem (n, xs) ; ; 
vai mem : ' a * ' a list -> bool = <fun> 

(* oppure, in versione curryficata: *) 

# let ree mem n lst = match lst with 

[] -> false 

| x: :xs -> (n = x) or mem n xs; ; 
vai mem : ' a -> ' a list -> bool = <fun> 

( * od anche : * ) 

# let ree mem n = function 

[] -> false 

| x: :xs -> (n = x) or mem n xs; ; 
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vai mem : ' a -> ' a list -> bool = <fun> 

# mem 8 [1;2] ; ; 

- : bool = false 

# mem 2 [1;2] ; ; 

- : bool = true 

Init. Restituisce la lista che si ottiene eliminando l'ultimo elemento 

# let ree init = function 

[] -> raise EmptyList 
I [x] -> [] 

| x: :xs -> x : : init (xs) ; ; 
vai init ' a list -> ' a list = <fun> 

# init [3;4;5];; 

- : int list = [3; 4] 

Append. Implementare l'append senza usare l'operatore di concatenazione @. 

# let ree append = function 

( [] ,ys) -> ys 

| (x::xs,ys) -> x :: append (xs, ys) ; ; 
vai append : ' a list * ' a list -> ' a list = <fun> 

(* oppure *) 

# let ree append (xs, ys) = match xs with 

[] -> ys 

| z::zs -> z: : append (zs, ys) ; ; 
vai append : ' a list * ' a list -> ' a list = <fun> 

(* oppure, in versione curryficata: *) 

# let ree cappend xs ys = match xs with 

[] -> ys 

| z::zs -> z :: cappend zs ys; ; 
vai cappend : ' a list -> ' a list -> ' a list = <fun> 

# cappend [1;3] [7] ; ; 

- : int list = [1; 3; 7] 

Maxinlist. Restituisce l'elemento maggiore fra tutti quelli della lista. 

# let ree maxinlist = function 

[a] -> a 

| [ ] -> raise EmptyList 

| a::b::cs -> maxinlist ((max a b) : :cs) ; ; 
vai maxinlist ' a list -> ' a = <f un> 

# maxinlist [3;1;7;4];; 

- : int = 7 



let ree maxinlist = function 
[ ] -> raise EmptyList 
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I [x] -> x 

| x: :xs -> max x (maxinlist xs) ; ; 

Reverse. Restituisce una lista con gli elementi invertiti. 

# let ree reverse = function 

[] -> [] 

| x::xs -> (reverse xs) @ [x] ; ; 
vai reverse : ' a list -> ' a list = <f un> 

# reverse [1;2;3] ; ; 

- : int list = [3; 2; 1] 

Si noti che, in questo caso, le parentesi tonde per racchiudere (re verse xs) non sono 
necessarie, perché la chiamata di funzioni ha la precedenza sugli operatori. Ad esempio, 

funzione n-1 equivale a (funzione n) -1. 

Versione equivalente con ricorsione in coda: 

#let tr_reverse lista = 

let ree aux invertita = function 
[] -> invertita 

| x: :xs -> aux (x :: invertita) xs 
in aux [ ] lista; ; 
vai tr_reverse : ' a list -> ' a list = <fun> 

# tr_reverse [1;2;3;4];; 

- : int list = [4; 3; 2; 1] 

In questo caso, invece, sono necessarie le parentesi per indicare la precedenza del con s in 
(x : : invertita) . La funzione ausiliaria locale è sia tail-recursive sia curryficata: il primo 
argomento viene associato alla variabile invertita, mentre il secondo viene utilizzato per 
il pattern matching. 

Take. Definire una funzione take : int * ' a list -> 'a list, tale che restituisca una 
lista con i primi n elementi della lista passata come argomento. 

let ree take = function 
(0,_) -> [] 
I (_, []) -> [] 

| (n, x: :xs) -> x :: take (n-1 , xs) ; ; 
vai take : int * ' a list -> ' a list = <fun> 

# take (2, [1;3;5;7]);; 

- : int list = [1; 3] 

Zip. Data la coppia di liste ( [xl, x2, x3, . . . , xn] ; [yl, y2, . . . , yn] ) restituisce la 
lista delle coppie [ (xl, yl) , (x2, y2) , . . . , (xn, yn) ] 

# exception Lunghe zzaDiver sa; ; 

# let ree zip = function 

([],[]) -> [] 

I (_,[]) I (lì,—) ~> raise LunghezzaDiversa 
| (x: :xs, y: :ys) -> (x, y) : : zip (xs, ys) ; ; 
vai zip : 'a list * 'b list -> ('a * 'b) list = <fun> 
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# zip ([1;2;3], [4;5;6]);; 

- : (int * int) list = [(1, 4); (2, 5); (3, 6)] 

Unzip. Inversa alla precedente: data una lista di coppie, restituisce una coppia di liste. 

let ree unzip = function 
[] -> ([],[]) 

| (x,y) : :ps -> let (f,s) = unzip ps 

in (x: :f,y: :s) ; ; 
vai unzip : ('a * 'b) list -> 'a list * 'b list = <fun> 

# unzip [(1,2); (3,4); (5,6)];; 

- : int list * int list = ([1; 3; 5], [2; 4; 6]) 

Copy. Scrivere una funzione copy : int * ' a -> ' a list che, applicata ad una coppia 
(n, x) , restituisca la lista di lunghezza n i cui elementi sono tutti uguali a x. 

# exception NumNegativo; ; 
exception NumNegativo 

# let ree copy = function 

(0,_) -> [] 

| (n,x) -> if n<0 then raise NumNegativo else x :: copy (n-1, x) ; ; 
vai copy : int * ' a -> 'a list = <fun> 

# copy (3,'R');; 

- : char list = [ ' R' ; ' R' ; ' R' ] 

Nondec. Scrivere un predicato nondec : int list -> bool che, applicato ad una li- 
sta lst, restituisca true se gli elementi di lst sono in ordine non decrescente, false 
altrimenti. 

# let ree nondec = function 

[] -> true 
| [x] -> true 

| x::y::xs -> if y<x then false else nondec (y: :xs) ; ; 
vai nondec : ' a list -> bool = <fun> 

# nondec [3;4;4;5];; 

- : bool = true 

Duplica. Scrivere una funzione che, applicata ad una lista xs=[xl;x2;...;xn], du- 
plichi ogni elemento della lista, cioè restituisca [ xl ; xl ; x2 ; x2 ; . . . ; xn; xn ] . 

# let ree duplica = function 

[] -> [] 

| x::xs -> x: :x: : duplica (xs) ; ; 
vai duplica : ' a list -> ' a list = <f un> 

# duplica [1;2;3];; 

- : int list = [1; 1; 2; 2; 3; 3] 
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Pairwith. Definire una funzione pairwith che, applicata ad un oggetto y e una lista 
xs= [xl; x2; . . . ; xn] , restituisca la lista [ (y, xl ) ; (y, x2 ) ; . . . ; (y, nx) ] . Determinare 
il tipo della funzione. 

let ree pairwith y = function 
[] -> [] 

| x: :xs -> (y,x) : : (pairwith y xs) ; ; 
vai pairwith : ' a -> 'b list -> ('a * 'b) list = <fun> 

# pairwith 'k' [3; 4; 5] ; ; 

- : (char * int) list = [('k', 3); ('k\ 4); ('k', 5)] 

Map. Scrivere una funzione che applicata ad una lista lst= [x0; xl ; x2 ; . . .;xk] re- 
stituisca la lista di coppie [ (0, x0) ; (1; xl) ; (2 ; x2 ) ; . . . ; (k, xk) ] . Determinare il tipo 
della funzione. 

let map xs = 

let ree aux = function 
([],_) -> ti 

| (x: :xs, n) -> (x, n) : : aux (xs , n+1) 
in aux (xs, 0) ; ; 
vai map : 'a list -> ('a * int) list = <fun> 

# map ['a' ; 'b' ; 'c'] ; ; 

- : (char * int) list = [('a', 0); ('b', 1); ('C, 2)] 

Position. Scrivere una funzione position : ' a list * ' a -> int tale che position 
(lst, x) restituisca la posizione della prima occorrenza di x in lst (contando a partire da 
0) se x occorre in lst, oppure sollevi altrimenti un'eccezione. 

# exception Insieme Vuoto; ; 
exception InsiemeVuoto 

# let position (xs,m) = 

let ree aux = function 

(_,[]) -> raise InsiemeVuoto 

| (p,x::xs) -> if x=m then p else aux (p+l,xs) 
in aux ( , xs ) ; ; 
vai position : ' a list * ' a -> int = <fun> 

# position (['c';'a';'s';'a'],'a');; 

- : int = 1 

Nth. Scrivere una funzione nth: ('a list * int) -> 'a che, applicata ad una lista 
lst di lunghezza n e a un numero k compreso tra e n-1, restituisca il fc-esimo elemento di 
lst. 

# exception ListaVuota; ; 
exception ListaVuota 

# let ree nth = function 

[ ] , _ -> raise ListaVuota 

| x: :xs, -> x 

| x::xs,k -> nth (xs,k-l);; 
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vai nth : ' a list * int -> ' a = <fun> 

# nth (['c';'a';'s';'a'],2);; 
- : char = 's' 



Alternate. Scrivere una funzione alternate : ' a list -> ' a list che, applicata ad 
una lista lst, restituisca la lista contenente tutti e solo gli elementi di lst che si trovano in 
posizione dispari. Per convenzione, il primo elemento di una lista si trova in posizione 0. 

let ree alternate = function 
[] -> [] 
I [x] -> [] 

| x::y::ys -> y :: alternate ys; ; 
vai alternate : ' a list -> ' a list = <fun> 

# alternate [0; 1; 2; 3; 4; 5] ; ; 
- : int list = [1; 3; 5] 



Minmax. Scrivere un programma che, data una lista di liste di interi, restituisca il valore 
minimo tra i massimi di ciascuna lista. 

# exception ListaVuota; ; 
exception ListaVuota 

# let ree massimo = function 

[ ] -> raise ListaVuota 
I [x] -> x 

| x::y::ys -> if (x>y) then massimo (x: :ys) else massimo (y: :ys) ; ; 
vai massimo : ' a list -> ' a = <fun> 

# let ree minimo = function 

[ ] -> raise ListaVuota 
I [x] -> x 

| x: :y: :ys -> if (x<y) then minimo (x: :ys) else minimo (y: :ys) ; ; 
vai minimo : ' a list -> ' a = <fun> 

# let ree maxmin = function 

[ ] -> raise ListaVuota 
| [x] -> massimo x 

| x: :y: :ys -> minimo [ (massimo x) ; (maxmin (y: :ys) ) ] ; ; 
vai maxmin : ' a list list -> ' a = <fun> 

# maxmin [ [3; 100; 1; 9] ; [2;10;20]; [80; 65; 4] ] ; ; 
- : int = 20 



2.3. Funzioni di ordine superiore sulle liste 

Le funzioni di ordine superiore possono prendere funzioni come argomenti e/o restituirle 
come output. Molte di queste sono definite nel modulo List. 



Nelle seguenti funzioni verrà fatto uso di predicati, cioè di funzioni del tipo: 'a -> bool. 
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2.3.1. Map: ('a -> 'b) -> 'a list -> 'b list. Data una funzione e una lista, re- 
stituisce la lista che si ottiene applicando la funzione ad ogni elemento della lista. 

# let ree map f = function 

[] -> [] 

| x : : xs -> f x : : map f xs ; ; 
map : ('a -> 'b) -> 'a list -> 'b list 

# let doublé x = 2 * x; ; 

vai doublé : int -> int = <fun> 

# map doublé ; ; 

- : int list -> int list = <fun> 

# map doublé [ [4; 5] ; [5] ] ; ; 

This expression has type ' a list but is here used with type int 

# map (map doublé) ; ; 

- : int list list -> int list list = <fun> 

# map (map doublé) [ [4; 5] ; [5] ] ; ; 
int list list = [[8; 10]; [10]] 

2.3.2. Inits: 'a list -> 'a list list. Data una lista, restituisce una lista di liste, 
nella forma: 

inits [1;2;3] -> [ [1] ; [1; 2] ; [1; 2; 3] ] 

L'implementazione si avvale delle funzioni Map (precedentemente analizzata) e Cons: 

# let cons x lst = x::lst;; 

vai cons : ' a -> ' a list -> 'a list = <fun> 

# let ree inits = function 

[] -> [] 

| x: :xs -> [x] :: List. map (cons x) (inits xs) ; ; 
vai inits : 'a list -> 'a list list = <fun> 

# inits [1;2;3];; 

- : int list list = [[1]; [1; 2]; [1; 2; 3]] 



Infatti si ha: 

inits 

[1] 

[1] 

[1] 

[1] 

[1] 

[1] 

[1] 

[1] 

[1] 

[[1] 



[1;2;3] -> 
List .map 
List .map 
List .map 
List .map 
List .map 
List .map 
List .map 
List .map 



(cons 
(cons 
(cons 
(cons 
(cons 
(cons 
(cons 
(cons 



1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 



[[1;2]; [1;2;3]] -> 
[1;2] ; [1;2;3]] 



(inits 

([2] 

([2] 

([2] 

([2] 

([2] 

([2] 

([[2] 



[2;3]) -> 
List .map 
List .map 
List .map 
List .map 
List .map 
[[2; 3]]) 
[2;3]]) -> 



(cons 
(cons 
(cons 
(cons 
(cons 
-> 



2) 
2) 
2) 
2) 
2) 



(inits 
([3] 
([3] 
([3] 



([[3]])) -> 



[3])) -> 
List .map 
List .map 
[])) -> 



(cons 
(cons 



3) 
3) 



(i: 
[] 
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